home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / permute.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-09-20  |  512 b   |  21 lines
  1. 10  REM THIS PROGRAM WILL DO ALL THE POSSIBLE PERMUTATIONS OF ANY GIVEN SET OF          LETTERS.
  2. 20  CLS
  3. 30  KEY OFF
  4. 40  PRINT TAB(25)"PERMUTATIONS":PRINT:PRINT
  5. 50  REM PERMUTATIONS BY KEN WASSERMAN
  6. 60  INPUT "LETTERS:", W$
  7. 70  L=LEN(W$)
  8. 80  DIM W$(L),I(L)
  9. 90  W$(L)=W$
  10. 100  GOSUB 120
  11. 110  END
  12. 120  IF L=0 THEN GOSUB 190:RETURN
  13. 130  I(L)=L
  14. 140  W$=MID$(W$,1,L-1)+MID$(W$(L),I(L),1)+MID$(W$,L+1)
  15. 150  W$(L-1)=MID$(W$(L),1,I(L)-1)+MID$(W$(L),I(L)+1)
  16. 160  L=L-1:GOSUB 120:L=L+1
  17. 170  I(L)=I(L)-1:IF I(L)=0 THEN RETURN
  18. 180  GOTO 140
  19. 190  PRINT W$,
  20. 200  RETURN
  21.